home *** CD-ROM | disk | FTP | other *** search
/ Designer's Club 1998 May / Designer's Club 1998 May.iso / pc / IDEASRC / BEVEL.DIR / 00394_quitegypt.ls < prev    next >
Encoding:
Text File  |  1998-04-06  |  224 b   |  11 lines
  1. on mouseDown
  2.   puppetSound(2, "quitclick")
  3.   repeat while the mouseDown
  4.     set the visible of sprite the clickOn to 0
  5.     updateStage()
  6.   end repeat
  7.   updateStage()
  8.   set the visible of sprite the clickOn to 1
  9.   quit()
  10. end
  11.